home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / GameboyDev / GBDK / lib / asr.s < prev    next >
Encoding:
Text File  |  1999-03-29  |  401 b   |  28 lines
  1.     .include    "global.s"
  2.  
  3.     .area    _CODE
  4.  
  5.     ;; 16-bit arithmetic shift right
  6.     ;; 
  7.     ;; Entry conditions
  8.     ;;   BC = value to shift
  9.     ;;   A = number of bits to shift
  10.     ;; 
  11.     ;; Exit conditions
  12.     ;;   BC = result
  13.     ;;
  14.     ;; Register used: AF,BC,DE,HL
  15. .asr16::
  16.     OR    A        ; Test if shift value is 0
  17.     RET    Z        ; If yes, return
  18. 1$:
  19.     SRA    B        ; Shift right
  20.     RR    C
  21.     DEC    A
  22.     JR    NZ,1$        ; Finished?
  23.     RET
  24.  
  25. .asr8::
  26.     LD    B,#0x00
  27.     JP    .asr16
  28.